home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
People & Parliament - A …er's Guide to Westminster
/
People and Parliament - A Stranger's Guide to Westminster (1998)(House of Commons).iso
/
parl
/
8bit80.dir
/
00117_Script_117
< prev
next >
Wrap
Text File
|
1998-03-23
|
1KB
|
50 lines
on mouseUp
GLOBAL QRESULT,POINTS1,POINTS2,POINTS3
IF QRESULT=1 THEN
PUPPETSOUND 1, "RIGHT"
SET POINTS1=POINTS1+2
SET POINTS2=POINTS2-1
SET POINTS3=POINTS3-1
ELSE
PUPPETSOUND 1, "WRONG"
SET POINTS1=POINTS1-2
SET POINTS2=POINTS2+1
SET POINTS3=POINTS3+1
showrightanswer
END IF
clearpuppets
GO TO THE FRAME+1
end
on showrightanswer
GLOBAL QRESULT
IF QRESULT=2 THEN
set the cursor of sprite 3 to -1
set the visible of sprite 3 to false
set the visible of sprite 23 to false
set the ink of sprite 4 to 0
set the cursor of sprite 5 to -1
set the visible of sprite 5 to false
set the visible of sprite 25 to false
updatestage
repeat while soundbusy(1)=TRUE
nothing
end repeat
else
set the cursor of sprite 3 to -1
set the visible of sprite 3 to false
set the visible of sprite 23 to false
set the ink of sprite 5 to 0
set the cursor of sprite 4 to -1
set the visible of sprite 4 to false
set the visible of sprite 24 to false
updatestage
repeat while soundbusy(1)=TRUE
nothing
end repeat
end if
end